home *** CD-ROM | disk | FTP | other *** search
/ Haight-Ashbury in the Sixties / Haight-Ashbury in the Sixties (1996)(Rockument)(Disc 1 of 2)[Mac-PC].iso / mac / MAIN / TUNEIN / SHARED.DIR / 00545_Script_545 < prev    next >
Text File  |  1995-06-01  |  607b  |  18 lines
  1. on MiniMenuInAWindow
  2.   global MiniMenuWindow
  3.   if objectP(MiniMenuWindow) then
  4.     forget MiniMenuWindow
  5.   end if
  6.   set horzOrigin to the stageleft + 68
  7.   set vertOrigin to the stageTop + 78
  8.   set myWindowRect to rect(horzOrigin,vertOrigin, horzOrigin + 192, vertOrigin + 192)
  9.   set MiniMenuWindow to window "Tune In Menu"
  10.   set the rect of MiniMenuWindow to myWindowRect
  11.   set the filename of MiniMenuWindow to "MINIMENU.DIR"
  12.   set the titleVisible of MiniMenuWindow to true
  13.   set the modal of MiniMenuWindow to true
  14.   set the windowtype of MiniMenuWindow to 16
  15.   open MiniMenuWindow
  16. end
  17.  
  18.